home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / kowin / archive / net / kxtm248.lzh / puzzle.k20 < prev    next >
Encoding:
Text File  |  1995-09-07  |  1.4 KB  |  43 lines
  1. -1;t\1,;TM;g\1
  2. :U;$K=\$(A0);$A0=\$(A1);$A1=\$(A2);$A2=\$(K);.
  3. :D;$K=\$(A2);$A2=\$(A1);$A1=\$(A0);$A0=\$(K);.
  4. :L;t\$(L), ;F>;$L=\m(0;1;\$(A1));$A1=\m(2;3;\$(A1)) \$(R);$R= ;.
  5. .
  6. :R;t\$(R), ;F>;$R=\m(4;1;\$(A1));$A1=\$(L) \m(0;3;\$(A1));$L= ;.
  7. :N;.
  8. # -- メインルーチン
  9. :M
  10. )\x1b[2J
  11. &echo "==  KX_Term20 サンプルゲーム２  =="
  12. )\x1b[5>h
  13. $K<レベル (10～50) ?
  14. t\$(K),;F>;$K=20
  15. $L= ;$R= ;$A0=1 2 3;$A1=4 5 6;$A2=7 8 9
  16. vA=\$(K);)\x1b[3\;1HLevel=\$(K) データ作成中.. しばらくお待ち下さい\r\n
  17. :L;&puzzle \@(\R(3);L;N;R);&puzzle U
  18. vA=\-(\vA;1);t\vA,0;FL
  19. )\x1b[3\;1H\x1b[K\x1b[9\;1H
  20. )下回転  : [RETURN]     やり直し: [-][RETURN]   数字を 1 2 3\r\n
  21. )左シフト: [4][RETURN]  諦める  : [.][RETURN]          4 5 6  に並べれば\r\n
  22. )右シフト: [6][RETURN]                                 7 8 9  クリア\r\n
  23. $AA0=\$(A0);$AA1=\$(A1);$AA2=\$(A2);$RR=\$(R);$LL=\$(L)
  24. )\x1b[3\;2H┏━ ━┓\x1b[7\;2H┗━ ━┛
  25. :P;-1;)\x1b[4\;2H┛\$(A0)┗\r\n
  26. ) \$(L) \$(A1) \$(R)\r\n
  27. ) ┓\$(A2)┏\r\n
  28. t\$(A0)\$(A1)\$(A2),1 2 34 5 67 8 9;TG
  29. :K;-10;$K<移動?
  30. -1;t\$(K),;F>;&puzzle D;gP
  31. t\$(K),4;F>;&puzzle L;gP
  32. t\$(K),6;F>;&puzzle R;gP
  33. t\$(K),-;F>;$A0=\$(AA0);$A1=\$(AA1);$A2=\$(AA2);$R=\$(RR);$L=\$(LL);gP
  34. t\$(K),.;TH
  35. gK
  36. :G;)\x1b[5\;14H完成！！
  37. :H;-10;$K<もう１回やる(y/n)?
  38. -1;t\q(\$(K)),y;TM
  39. )\x1b[14\;5H終了\r\n\x1b[5>l;$A0=;$A1=;$A2=;$L=;$R=;$K=
  40. $AA0=;$AA1=;$AA2=;$LL=;$RR=
  41. -10;.
  42. # == Ko-Window KX_Term20 Copyright 1992 H.Ogasawara(COR.)
  43.